*********************************************************************************
* Figure 1																		*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W22

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Figure 1

	use "DATA_Figure1.dta", clear

	graph dot w23 w22 w21 w17 w16 w14 w8 w2, over(var_str, sort(var))  ///
		marker(1, msize(large) msymbol(circle)	mcolor(eltblue%50)) /// w23: 2022
		marker(2, msize(large) msymbol(dot) 			mcolor(eltblue))   /// w22: 2021   
		marker(3, msize(large) msymbol(circle) 			mcolor(red))   /// w21: 2021   
		marker(4, msize(large) msymbol(circle) 			mfcolor(red%50)   mlcolor(red))   /// w17: 2021
		marker(5, msize(large) msymbol(circle) 			mfcolor(red%50)   mlcolor(red))   /// w16: 2021
		marker(6, msize(large) msymbol(circle) 			mfcolor(red%40)  mlcolor(red))   /// w11: 2019
		marker(7, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w8: 2017
		marker(8, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w5: 2017
		marker(9, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w4: 2017
		marker(10, msize(large) msymbol(circle) 			mfcolor(red%20)  mlcolor(red))   ///  w2: 2017
		title(" ", size (med)) ///
		legend(order(3 "Pre-invasion" 2  "Post-invasion" ) size(medsmall) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medsmall)) ///
		yline(50, lcolor(black))  ///
		graphregion(margin(0 0 -5 -10)) ///
		ysize(6) xsize(7) ///
		name(figure1, replace)

